home *** CD-ROM | disk | FTP | other *** search
/ Windows Shareware Gold / Windows Shareware Gold Volume 3 Number 1 (Sherburne Knowledge Systems) (1991).iso / apps / f1340 / sol.wbt < prev    next >
Text File  |  1991-01-23  |  833b  |  27 lines
  1.  
  2. ;* solitare.wbt *
  3.   MinutesToPlay=AskLine("Solitaire","How many minutes do you want to play?","")
  4.   if WinExist("Solitaire")==@TRUE then goto activate
  5.   RunZoom("sol.exe","")
  6.   goto loaded
  7. :activate
  8.   WinActivate("Solitaire")
  9.   WinZoom("Solitaire")
  10. :loaded
  11.   SendKey("!gc{right}{sp}~")
  12.   SecondsToPlay=MinutesToPlay*60
  13.   SecondsAlreadyPlayed=0
  14. :moretime
  15.   SecondsRemaining=SecondsToPlay-SecondsAlreadyPlayed
  16.   if !WinExist("Solitaire") then Exit
  17.   WinTitle("Solitaire","Solitaire (%SecondsRemaining% seconds left)")
  18.   Delay(10)
  19.   SecondsAlreadyPlayed=SecondsAlreadyPlayed+10
  20.   if SecondsAlreadyPlayed<SecondsToPlay then goto moretime
  21.   beep
  22.   :TryAgain
  23.   WinClose("Solitaire")
  24.   if WinExist("Solitaire") then goto TryAgain   ;Mouse *might* be down
  25.   message("Solitaire's Over","Get back to work!")
  26.   Exit
  27.